home *** CD-ROM | disk | FTP | other *** search
/ PC User 2002 April / Disc 2 / PCUSER0402D2.iso / software / online / files / musirc.exe / Main / MusIRC < prev    next >
Encoding:
Text File  |  2002-01-23  |  61.9 KB  |  1,780 lines
  1. dialog MusIRC {
  2.   title MusIRC v $+ %version - (Sharing: %totalmp3s MP3s, %totalzips Zips, %totalavis Avis, %totalexes Exes, %totalmpgs Mpgs, %totalmpegs Mpegs, %totalisos Isos, %totalmovs Movs, and %totalasfs Asfs.)
  3.   size -1 -1 354 215
  4.   option dbu
  5.   link "http://www.musirc.com", 93, 280 0 200 10
  6.   link "http://www.geocities.com/musirc", 95, 270 7 200 10
  7.   tab "Find Files", 1, 2 2 350 191
  8.   text "Search For:", 5, 10 26 50 11, tab 1
  9.   edit "", 6, 50 24 250 12, tab 1 autovs
  10.   button "Cancel", 10, 315 30 30 10, tab 1
  11.   list 11, 4 44 346 154, tab 1 sort hsbar vsbar
  12.   text "0 file(s) found", 53, 2 200 50 9, tab 1
  13.   text "", 69, 40 200 275 9, tab 1 right center
  14.   button "Search", 7, 315 20 30 10, tab 1 default
  15.   tab "MP3 Player", 2
  16.   box "MP3 Playlist", 12, 5 40 164 140, tab 2
  17.   list 13, 10 50 154 135, tab 2 vsbar hsbar
  18.   button ">", 15, 31 27 17 8, tab 2
  19.   button "<<", 16, 13 27 17 8, tab 2
  20.   button ">>", 17, 85 27 17 8, tab 2
  21.   button "| |", 18, 49 27 17 8, tab 2
  22.   button "[  ]", 19, 67 27 17 8, tab 2
  23.   check "Random Play", 22, 110 30 40 11, tab 2 left push
  24.   check "Advertise Song", 23, 155 25 48 7, tab 2 right
  25.   button "Refresh Playlist", 66, 60 181 50 12, tab 2
  26.   box "MP3 Information:", 21, 170 35 178 155, tab 2
  27.   text "Title:", 27, 175 46 50 8, tab 2
  28.   edit "", 29, 205 45 120 10, tab 2 read autohs
  29.   text "Artist:", 30, 175 60 15 9, tab 2
  30.   edit "", 31, 205 59 120 10, tab 2 read autohs
  31.   text "Album:", 32, 175 75 16 8, tab 2
  32.   edit "", 33, 205 74 120 10, tab 2 read autohs
  33.   text "Genre:", 36, 175 92 20 8, tab 2
  34.   edit "", 42, 205 91 120 10, tab 2 read autohs
  35.   text "Year:", 24, 175 109 13 8, tab 2
  36.   edit "", 26, 205 108 120 10, tab 2 read autohs
  37.   text "Comments:", 54, 175 125 31 8, tab 2
  38.   edit "", 55, 205 124 120 10, tab 2 multi read autohs autovs
  39.   text "Mode:", 109, 175 141 120 10, tab 2
  40.   edit "", 63, 205 140 120 10, tab 2 read autohs
  41.   text "Type:", 119, 175 158 120 10, tab 2
  42.   edit "", 120, 205 157 120 10, tab 2 read autohs
  43.   text "Length:", 117, 175 175 120 10, tab 2
  44.   edit "", 118, 205 174 120 10, tab 2 read autohs
  45.   check "Loop", 57, 115 19 30 10, tab 2 left push
  46.   box "MP3 Player Controls", 65, 10 19 96 20, tab 2 center
  47.   text "Now Playing:", 90, 8 201 50 8, tab 2
  48.   list 14, 45 200 255 12, tab 2
  49.   tab "Set Sharing Directory", 3
  50.   box "Directory Sharing Settings", 34, 10 20 335 50, tab 3
  51.   button "Add a Directory", 99, 50 45 113 12, tab 3
  52.   button "Remove a Directory", 98, 175 45 110 12, tab 3
  53.   box "Outgoing Transfer Settings", 37, 10 75 335 50, tab 3
  54.   text "Maximum Simultaneous Outgoing Transfers:", 38, 35 90 200 12, tab 3
  55.   edit "", 39, 180 86 50 12, tab 3 center
  56.   text "Maximum Simultaneous Outgoing Transfers Per User:", 40, 35 105 200 12, tab 3
  57.   edit "", 41, 180 101 50 12, tab 3 center 
  58.   edit "", 35, 95 30 223 12, tab 3 read center
  59.   box "Incoming Transfer Settings", 103, 10 130 335 50, tab 3
  60.   text "Maximum Simultaneous Incoming Transfers:", 104, 35 145 200 12, tab 3
  61.   edit "This Option Is Not Yet Available.", 105, 180 143 100 12, tab 3 read center
  62.   text "Maximum Simultaneous Incoming Transfers Per User:", 106, 35 160 200 12, tab 3
  63.   edit "This Option Is Not Yet Available.", 107, 180 158 100 12, tab 3 read center
  64.   text "Currently Shared Directories:", 108, 25 33 70 12, tab 3  
  65.   tab "Open Download Folder", 94
  66.   tab About MusIRC v4.3, 43
  67.   text "MusIRC v4.3 for #MusIRC", 44, 140 26 120 11, tab 43
  68.   text "Keeping music free since March 4th, 2001 and keeping files free since December 14th, 2001", 45, 56 35 220 10, tab 43
  69.   text "Created by:            Supporters/Members:          Web Designers/Graphics:            MusIRC Network Management:", 46, 32 52 300 10, tab 43
  70.   text "MeTaLRoCk                       DvJ                                       Coach                                          MeTaLRoCk", 47, 30 62 300 10, tab 43
  71.   text "[88]H[88]                            Sci-Tek                                Praetorian                                      reddog", 48, 30 74 300 10, tab 43
  72.   text "DrkEtrnl                              Mekker                                Smely-Tuna                                     DvJ", 49, 30 86 300 10, tab 43
  73.   text "[[NiTrO]]                              ThaCyberThug                                                                           Sci-Tek", 50, 30 98 300 10, tab 43
  74.   text "{GRiM                                 fillion                                                                                           |-SeanA-|", 51, 30 110 300 10, tab 43
  75.   text "Serialz                                 D-Wayne ", 52, 30 122 300 10, tab 43
  76.   text "DaPyr0x                              |-SeanA-|", 20, 30 134 300 10, tab 43
  77.   text "|v|oF[98]                              reddog", 59, 30 147 300 10, tab 43
  78.   text "The MusIRC creators, sponsors, supporters, and managers are not liable for any damages to your computer nor any illegal activities commited with the use of this program. We are also not responsible for any program errors that may occur. You may freely distribute this program as long as you do not make modifications or illegal copies. If you need assistance, please contact us via our website at http://www.musirc.com", 121, 10 165 335 25, tab 43
  79.   button "Close", 4, 315 197 30 13, ok
  80. }
  81. on *:dialog:MusIRC:sclick:94:{ run MusIRC Downloads }
  82. alias mp3.length { 
  83.   var %mp3.len $int($calc($1 / 1000))
  84.   var %mp3.min $int($calc(%mp3.len / 60))
  85.   var %mp3.sec $calc(%mp3.len - (%mp3.min * 60))
  86.   if (%mp3.min < 10) { set %mp3.min 0 $+ %mp3.min }
  87.   if (%mp3.sec < 10) { set %mp3.sec 0 $+ %mp3.sec }
  88.   set %mp3.len %mp3.min $+: $+ %mp3.sec
  89.   return %mp3.len
  90. }
  91.  
  92. alias mp3.position {
  93.   if ($dialog(MusIRC) == $null) { return }
  94.   did -ra MusIRC 62 $mp3.length(%current.pathmp3) / $mp3.length($mp3(%current.pathmp3).length)
  95. }
  96.  
  97. on *:dialog:MusIRC:sclick:58: { ivoladd | did -r musirc 60 | did -a musirc 60 $ivol }
  98. on *:dialog:MusIRC:sclick:59: { ivolrem | did -r musirc 60 | did -a musirc 60 $ivol }
  99.  
  100. on *:dialog:MusIRC:sclick:13 {
  101.   set %current.mp3 $did(MusIRC,13,$did(MusIRC,13).sel).text
  102.   set %current.pathmp3 $shortfn( $read(MP3List.txt, w, * $+ $did(MusIRC,13,$did(MusIRC,13).sel).text $+ *))
  103.   did -r MusIRC 14
  104.   did -a MusIRC 14 %current.mp3
  105.   mp3.title
  106.   if (%mp3.title == $null) { set %mp3.title Not Given }
  107.   did -r MusIRC 29
  108.   did -a MusIRC 29 %mp3.title
  109.   mp3.artist
  110.   if (%mp3.artist == $null) { set %mp3.artist Not Given }
  111.   did -r MusIRC 31
  112.   did -a MusIRC 31 %mp3.artist
  113.   mp3.year
  114.   if (%mp3.year == $null) { set %mp3.year Not Given }
  115.   did -r MusIRC 26
  116.   did -a MusIRC 26 %mp3.year
  117.   mp3.album
  118.   if (%mp3.album == $null) { set %mp3.album Not Given }
  119.   did -r MusIRC 33
  120.   did -a MusIRC 33 %mp3.album
  121.   mp3.genre
  122.   if (%mp3.genre == $null) { set %mp3.genre Not Given }
  123.   did -r MusIRC 42
  124.   did -a MusIRC 42 %mp3.genre
  125.   mp3.comment
  126.   if (%mp3.comment == $null) { set %mp3.comment Not Given }
  127.   did -r MusIRC 55
  128.   did -a MusIRC 55 %mp3.comment
  129.   mp3.comment
  130.   set %mp3.mode $mp3(%current.pathmp3).mode
  131.   did -r MusIRC 63
  132.   did -a MusIRC 63 %mp3.mode
  133.   set %mp3.version $mp3(%current.pathmp3).version
  134.   did -r MusIRC 120
  135.   did -a MusIRC 120 %mp3.version
  136.   set %mp3.time $mp3(%current.pathmp3).length
  137.   set %mp3.time2 %mp3.time
  138.   %minutes.time = %mp3.time / 60000
  139.   %seconds.time = %mp3.time2 % 60
  140.   set %mp3time.seconds %seconds.time
  141.   set %mp3length $int(%minutes.time) Minute(s) : %mp3time.seconds Second(s)
  142.   did -r MusIRC 118
  143.   did -a MusIRC 118 %mp3length
  144. }
  145. alias mp3.bitrate { set %mp3.bitrate $mp3(%current.pathmp3).bitrate }
  146. alias mp3.time { set %mp3.time $mp3(%current.pathmp3).length
  147.   set %mp3.time2 %mp3.time
  148.   %minutes.time = %mp3.time / 60000
  149.   %seconds.time = %mp3.time2 % 60
  150.   set %mp3time.seconds %seconds.time
  151. }
  152. alias mp3.mode { set %mp3.mode $mp3(%current.pathmp3).mode }
  153. alias mp3.title { set  %mp3.title $mp3(%current.pathmp3).title }
  154. alias mp3.artist { set %mp3.artist $mp3(%current.pathmp3).artist }
  155. alias mp3.album { set %mp3.album $mp3(%current.pathmp3).album }
  156. alias mp3.comment { set %mp3.comment $mp3(%current.pathmp3).comment }
  157. alias mp3.genre { set %mp3.genre $mp3(%current.pathmp3).genre }
  158. alias mp3.year { set %mp3.year $mp3(%current.pathmp3).year }
  159. dialog dtable {
  160.   title "Error"
  161.   size -1 -1 110 30
  162.   option dbu
  163.   text "Please enter something to search for.", 1, 11 5 118 8
  164.   button "OK", 2, 40 15 37 12, ok
  165. }
  166. on *:dialog:MusIRC:dclick:13 {
  167.   if ($inmp3 == true) { .timer -m 1 1 splay stop }
  168.   did -r MusIRC 14
  169.   did -a MusIRC 14 %current.mp3
  170.  
  171.   splay -p %current.pathmp3 | set %playnum $did(MusIRC,13).sel
  172.   showmp3
  173. }
  174. on *:dialog:MusIRC:sclick:18:{ 
  175.   if %mp3pause == $null { .timer -m 1 1 splay pause | set %mp3pause yes }
  176.   else { .timer -m 1 1 splay resume | unset %mp3pause }
  177. }
  178.  
  179. on *:dialog:MusIRC:sclick:19:{ .timer -m 1 1 splay stop }
  180.  
  181. on *:dialog:MusIRC:sclick:15:{ 
  182.   set %current.pathmp3 $shortfn( $read(MP3List.txt, w, * $+ $did(MusIRC,13,$did(MusIRC,13).sel).text $+ *))
  183.   set %current.mp3 $did(MusIRC,13,$did(MusIRC,13).sel).text
  184.   did -r MusIRC 14
  185.   did -a MusIRC 14 %current.mp3
  186.   ;did -ra MusIRC 62 00:00 / $mp3.length($mp3(%current.pathmp3).length)
  187.   splay -p %current.pathmp3 | set %playnum $did(MusIRC,13).sel
  188.   unset %mp3.repeat
  189.   showmp3
  190. }
  191.  
  192. on *:dialog:MusIRC:sclick:22:{ set %mp3.random $did(MusIRC,22).state }
  193. on *:dialog:MusIRC:sclick:23:{ set %mp3.message $did(MusIRC,23).state }
  194. on *:dialog:MusIRC:sclick:57: { set %mp3.repeat $did(MusIRC,57).state }
  195. on *:dialog:MusIRC:sclick:16:{ 
  196.   if (%mp3.random == 1) {
  197.     did -c MusIRC 13 $rand(1,$line(@MP3List,0)) 0 99
  198.     set %current.pathmp3 $shortfn( $read(MP3List.txt, w, * $+ $did(MusIRC,13,$did(MusIRC,13).sel).text $+ *))
  199.     set %current.mp3 $nopath($longfn(%current.pathmp3))
  200.     did -r MusIRC 14
  201.     did -a MusIRC 14 %current.mp3
  202.     did -r MusIRC 14
  203.     did -a MusIRC 14 %current.mp3
  204.     mp3.title
  205.     if (%mp3.title == $null) { set %mp3.title Not Given }
  206.     did -r MusIRC 29
  207.     did -a MusIRC 29 %mp3.title
  208.     mp3.artist
  209.     if (%mp3.artist == $null) { set %mp3.artist Not Given }
  210.     did -r MusIRC 31
  211.     did -a MusIRC 31 %mp3.artist
  212.     mp3.year
  213.     if (%mp3.year == $null) { set %mp3.year Not Given }
  214.     did -r MusIRC 26
  215.     did -a MusIRC 26 %mp3.year
  216.     mp3.album
  217.     if (%mp3.album == $null) { set %mp3.album Not Given }
  218.     did -r MusIRC 33
  219.     did -a MusIRC 33 %mp3.album
  220.     mp3.genre
  221.     if (%mp3.genre == $null) { set %mp3.genre Not Given }
  222.     did -r MusIRC 42
  223.     did -a MusIRC 42 %mp3.genre
  224.     mp3.comment
  225.     if (%mp3.comment == $null) { set %mp3.comment Not Given }
  226.     did -r MusIRC 55
  227.     did -a MusIRC 55 %mp3.comment
  228.     splay -p %current.pathmp3 | set %playnum $did(MusIRC,13).sel3).sel
  229.     showmp3
  230.   }
  231.   else {
  232.     set %playnum %playnum - 1
  233.     did -c MusIRC 13 %playnum 0 99
  234.     set %current.pathmp3 $shortfn( $read(MP3List.txt, w, * $+ $did(MusIRC,13,$did(MusIRC,13).sel).text $+ *))
  235.     set %current.mp3 $nopath($line(@MP3List,$fline(@MP3List,$longfn(%current.pathmp3))))
  236.     did -r MusIRC 14
  237.     did -a MusIRC 14 %current.mp3
  238.     did -r MusIRC 14
  239.     did -a MusIRC 14 %current.mp3
  240.     mp3.title
  241.     if (%mp3.title == $null) { set %mp3.title Not Given }
  242.     did -r MusIRC 29
  243.     did -a MusIRC 29 %mp3.title
  244.     mp3.artist
  245.     if (%mp3.artist == $null) { set %mp3.artist Not Given }
  246.     did -r MusIRC 31
  247.     did -a MusIRC 31 %mp3.artist
  248.     mp3.year
  249.     if (%mp3.year == $null) { set %mp3.year Not Given }
  250.     did -r MusIRC 26
  251.     did -a MusIRC 26 %mp3.year
  252.     mp3.album
  253.     if (%mp3.album == $null) { set %mp3.album Not Given }
  254.     did -r MusIRC 33
  255.     did -a MusIRC 33 %mp3.album
  256.     mp3.genre
  257.     if (%mp3.genre == $null) { set %mp3.genre Not Given }
  258.     did -r MusIRC 42
  259.     did -a MusIRC 42 %mp3.genre
  260.     mp3.comment
  261.     if (%mp3.comment == $null) { set %mp3.comment Not Given }
  262.     did -r MusIRC 55
  263.     did -a MusIRC 55 %mp3.comment
  264.  
  265.     splay -p %current.pathmp3 | set %playnum $did(MusIRC,13).sel
  266.     showmp3
  267.   }
  268. }
  269. on *:dialog:MusIRC:sclick:17:{ 
  270.   if (%mp3.random == 1) {
  271.     did -c MusIRC 13 $rand(1,$line(@MP3List,0)) 0 99
  272.     set %current.pathmp3 $shortfn( $read(MP3List.txt, w, * $+ $did(MusIRC,13,$did(MusIRC,13).sel).text $+ *))
  273.     set %current.mp3 $nopath($longfn(%current.pathmp3))
  274.     did -r MusIRC 14
  275.     did -a MusIRC 14 %current.mp3
  276.     did -r MusIRC 14
  277.     did -a MusIRC 14 %current.mp3
  278.     mp3.title
  279.     if (%mp3.title == $null) { set %mp3.title Not Given }
  280.     did -r MusIRC 29
  281.     did -a MusIRC 29 %mp3.title
  282.     mp3.artist
  283.     if (%mp3.artist == $null) { set %mp3.artist Not Given }
  284.     did -r MusIRC 31
  285.     did -a MusIRC 31 %mp3.artist
  286.     mp3.year
  287.     if (%mp3.year == $null) { set %mp3.year Not Given }
  288.     did -r MusIRC 26
  289.     did -a MusIRC 26 %mp3.year
  290.     mp3.album
  291.     if (%mp3.album == $null) { set %mp3.album Not Given }
  292.     did -r MusIRC 33
  293.     did -a MusIRC 33 %mp3.album
  294.     mp3.genre
  295.     if (%mp3.genre == $null) { set %mp3.genre Not Given }
  296.     did -r MusIRC 42
  297.     did -a MusIRC 42 %mp3.genre
  298.     mp3.comment
  299.     if (%mp3.comment == $null) { set %mp3.comment Not Given }
  300.     did -r MusIRC 55
  301.     did -a MusIRC 55 %mp3.comment
  302.  
  303.     splay -p %current.pathmp3 | set %playnum $did(MusIRC,13).sel
  304.     showmp3
  305.   }
  306.   else {
  307.     set %playnum %playnum + 1
  308.     did -c MusIRC 13 %playnum 0 99
  309.     set %current.pathmp3 $shortfn( $read(MP3List.txt, w, * $+ $did(MusIRC,13,$did(MusIRC,13).sel).text $+ *))
  310.     set %current.mp3 $nopath($line(@MP3List,$fline(@MP3List,$longfn(%current.pathmp3))))
  311.     did -r MusIRC 14
  312.     did -a MusIRC 14 %current.mp3
  313.     did -r MusIRC 14
  314.     did -a MusIRC 14 %current.mp3
  315.     mp3.title
  316.     if (%mp3.title == $null) { set %mp3.title Not Given }
  317.     did -r MusIRC 29
  318.     did -a MusIRC 29 %mp3.title
  319.     mp3.artist
  320.     if (%mp3.artist == $null) { set %mp3.artist Not Given }
  321.     did -r MusIRC 31
  322.     did -a MusIRC 31 %mp3.artist
  323.     mp3.year
  324.     if (%mp3.year == $null) { set %mp3.year Not Given }
  325.     did -r MusIRC 26
  326.     did -a MusIRC 26 %mp3.year
  327.     mp3.album
  328.     if (%mp3.album == $null) { set %mp3.album Not Given }
  329.     did -r MusIRC 33
  330.     did -a MusIRC 33 %mp3.album
  331.     mp3.genre
  332.     if (%mp3.genre == $null) { set %mp3.genre Not Given }
  333.     did -r MusIRC 42
  334.     did -a MusIRC 42 %mp3.genre
  335.     mp3.comment
  336.     if (%mp3.comment == $null) { set %mp3.comment Not Given }
  337.     did -r MusIRC 55
  338.     did -a MusIRC 55 %mp3.comment
  339.  
  340.     splay -p %current.pathmp3 | set %playnum $did(MusIRC,13).sel
  341.     showmp3
  342.   }
  343. }
  344. on *:dialog:MusIRC:sclick:10:{
  345.   .timer 1 5 set %h.block false
  346.   .timer 5 0 set %h.block true
  347.   if (%h.block == true) {  }
  348.   if (%h.block == false) {
  349.     .echo -a Your Search Has Been Canceled.
  350.     .msg #MusIRC @HALT
  351.   }
  352. }
  353. on *:dialog:MusIRC:sclick:66:{ 
  354.   BuildMP3List 
  355.   BuildZipList
  356.   BuildAviList
  357.   BuildExeList
  358.   BuildMpgList
  359.   BuildIsoList
  360.   BuildMovList
  361.   BuildMpegList
  362.   BuildAsfList
  363. }
  364. on *:dialog:MusIRC:sclick:7:{ SearchStart | did -e MusIRC 7 }
  365. on *:dialog:MusIRC:dclick:11:{
  366.   var %req, %i = 0, %song, %nickname, %j = 0
  367.   %req =  $did(MusIRC,11,$did(MusIRC,11,1).sel).text
  368.   %i = $pos(%req,$chr(8),1)
  369.   %j = $pos(%req,$chr(9),1)
  370.   if ((%i != $null) && (%j != $null)) {
  371.     %song = $left(%req, $calc(%j - 1))
  372.     %nickname = $right(%req, $calc($len(%req) - %i))
  373.     did -r  MusIRC 69
  374.     did -a MusIRC 69 Requesting %song from %nickname
  375.     .echo -a You are now requesting %song from %nickname $+ . Please wait while while we negotiate the file transfer. This may take several seconds depending on the network traffic.
  376.     .ctcp %nickname @SEND %song
  377.     halt
  378.   }
  379. }
  380. on *:Dialog:MusIRC:init:0: {
  381.   did -a MusIRC 35 %mp3Shared
  382.   did -a MusIRC 39 %MaxSends
  383.   did -a MusIRC 41 %MaxSendsPerUser
  384.   mp3playerloadlist
  385.   if (%mp3.random == 1) { did -c MusIRC 22 }
  386.   if (%mp3.message == 1) { did -c MusIRC 23 }
  387.   did -r MusIRC 14
  388.   did -a MusIRC 14 %current.mp3
  389. }
  390. on *:Dialog:MusIRC:edit:35: { set %mp3shared $did(MusIRC,35) }
  391. on *:Dialog:MusIRC:sclick:36: {
  392.   var %temp4 $sdir="Add a Directory"
  393.   if (%temp4 == $null) { halt }
  394.   set %mp3Shared %temp4
  395.   did -r MusIRC 35
  396.   did -a MusIRC 35 %mp3shared
  397.   BuildMP3List
  398.   BuildZipList
  399.   BuildAviList
  400.   BuildIsoList
  401.   BuildMovList
  402.   BuildExeList
  403.   BuildMpgList
  404.   BuildMpegList
  405.   BuildAsfList
  406. }
  407. on *:Dialog:MusIRC:sclick:99: {
  408.   if (%mp3shared == $null) {
  409.     var %temp4 $sdir="Add a Directory"
  410.     if (%temp4 == $null) { halt }
  411.     set %mp3Shared %temp4
  412.     did -r MusIRC 35
  413.     did -a MusIRC 35 %mp3shared
  414.     BuildMP3List
  415.     BuildZipList
  416.     BuildAviList
  417.     BuildIsoList
  418.     BuildMovList
  419.     BuildExeList
  420.     BuildMpgList
  421.     BuildMpegList
  422.     BuildAsfList
  423.     halt
  424.   }
  425.   var %temp4 $sdir="Add a Directory"
  426.   if (%temp4 == $null) { halt }
  427.   var %N 1
  428.   var %mp3stemp %mp3shared
  429.   if (%temp4 isin %mp3stemp) {
  430.     var %totalshared $wildtok(%mp3stemp,*,0,59)
  431.     :DirectoryLoop
  432.     var %Directory. [ $+ [ %N ] ] $wildtok(%mp3stemp,*, $+ [ %N ] ,59)
  433.     if (%N != %totalshared) { inc %N 1 | goto DirectoryLoop }
  434.     unset %mp3stemp
  435.     var %N 1
  436.     :DetectLoop
  437.     if (%temp4 !isin %Directory. [ $+ [ %N ] ]) { 
  438.       if (%mp3stemp == $null) {
  439.         var %mp3stemp %Directory. [ $+ [ %N ] ]
  440.         if (%N == %totalshared) { goto next }
  441.         inc %N 1
  442.         goto DetectLoop
  443.       }
  444.       var %mp3stemp %mp3stemp $+ ; $+ %Directory. [ $+ [ %N ] ]
  445.       if (%N == %totalshared) { goto next }
  446.       inc %N 1
  447.       goto DetectLoop
  448.     }
  449.     if (%temp4 == %Directory. [ $+ [ %N ] ]) { set %imnotice %temp4 is already being shared! | imnotice | unset %imnotice | halt }
  450.     if (%N == %totalshared) { goto next }
  451.     inc %N 1
  452.     goto DetectLoop
  453.     :next
  454.     set %imnotice %temp4 now shares other shared directories. To prevent conflicts MusIRC will set %temp4 as root.
  455.     imnotice
  456.     unset %imnotice
  457.     if (%mp3stemp == $null) { var %mp3stemp %temp4 }
  458.     else var %mp3stemp %mp3stemp $+ ; $+ %temp4
  459.     set %mp3shared %mp3stemp
  460.     set %adddirectory %temp4
  461.     did -r MusIRC 35
  462.     did -a MusIRC 35 %mp3shared
  463.     AddMP3List
  464.     AddZipList
  465.     halt
  466.   }
  467.   var %totalshared $wildtok(%mp3stemp,*,0,59)
  468.   :DLoop
  469.   var %Directory. [ $+ [ %N ] ] $wildtok(%mp3stemp,*, $+ [ %N ] ,59)
  470.   if (%N != %totalshared) { inc %N 1 | goto DLoop }
  471.   unset %mp3stemp
  472.   var %N 1
  473.   :DLoop2
  474.   if (%N != %totalshared) { inc %N 1 | goto DLoop2 }
  475.   set %mp3shared %mp3shared $+ ; $+ %temp4
  476.   set %adddirectory %temp4
  477.   did -r MusIRC 35
  478.   did -a MusIRC 35 %mp3shared
  479.   AddMP3List
  480.   AddZipList
  481. }
  482. on *:Dialog:MusIRC:sclick:98:UnshareDirectories
  483. on *:Dialog:MusIRC:sclick:4: { set %mp3Shared $did(MusIRC, 35) | set %MaxSends $did(MusIRC, 39) | set %MaxSendsPerUser $did(MusIRC, 41) }
  484. on *:mp3end:{
  485.   if (%mp3.repeat == 1) { splay %current.pathmp3 }
  486.   else {
  487.     if (%mp3.random == 1) {
  488.       did -c MusIRC 13 $rand(1,$line(@MP3List,0)) 0 99
  489.       set %current.pathmp3 $shortfn( $read(MP3List.txt, w, * $+ $did(MusIRC,13,$did(MusIRC,13).sel).text $+ *))
  490.       set %current.mp3 $nopath($longfn(%current.pathmp3))
  491.       did -r MusIRC 14
  492.       did -a MusIRC 14 %current.mp3
  493.       did -r MusIRC 14
  494.       did -a MusIRC 14 %current.mp3
  495.       mp3.title
  496.       if (%mp3.title == $null) { set %mp3.title Not Given }
  497.       did -r MusIRC 29
  498.       did -a MusIRC 29 %mp3.title
  499.       mp3.artist
  500.       if (%mp3.artist == $null) { set %mp3.artist Not Given }
  501.       did -r MusIRC 31
  502.       did -a MusIRC 31 %mp3.artist
  503.       mp3.year
  504.       if (%mp3.year == $null) { set %mp3.year Not Given }
  505.       did -r MusIRC 26
  506.       did -a MusIRC 26 %mp3.year
  507.       mp3.album
  508.       if (%mp3.album == $null) { set %mp3.album Not Given }
  509.       did -r MusIRC 33
  510.       did -a MusIRC 33 %mp3.album
  511.       mp3.genre
  512.       if (%mp3.genre == $null) { set %mp3.genre Not Given }
  513.       did -r MusIRC 42
  514.       did -a MusIRC 42 %mp3.genre
  515.       mp3.comment
  516.       if (%mp3.comment == $null) { set %mp3.comment Not Given }
  517.       did -r MusIRC 55
  518.       did -a MusIRC 55 %mp3.comment
  519.  
  520.       splay -p %current.pathmp3 | set %playnum $did(MusIRC,13).sel
  521.       showmp3
  522.     }
  523.     else {
  524.       set %playnum %playnum + 1
  525.       did -c MusIRC 13 %playnum 0 99
  526.       set %current.pathmp3 $shortfn( $read(MP3List.txt, w, * $+ $did(MusIRC,13,$did(MusIRC,13).sel).text $+ *))
  527.       set %current.mp3 $nopath($line(@MP3List,$fline(@MP3List,$longfn(%current.pathmp3))))
  528.       did -r MusIRC 14
  529.       did -a MusIRC 14 %current.mp3
  530.       did -r MusIRC 14
  531.       did -a MusIRC 14 %current.mp3
  532.       mp3.title
  533.       if (%mp3.title == $null) { set %mp3.title Not Given }
  534.       did -r MusIRC 29
  535.       did -a MusIRC 29 %mp3.title
  536.       mp3.artist
  537.       if (%mp3.artist == $null) { set %mp3.artist Not Given }
  538.       did -r MusIRC 31
  539.       did -a MusIRC 31 %mp3.artist
  540.       mp3.year
  541.       if (%mp3.year == $null) { set %mp3.year Not Given }
  542.       did -r MusIRC 26
  543.       did -a MusIRC 26 %mp3.year
  544.       mp3.album
  545.       if (%mp3.album == $null) { set %mp3.album Not Given }
  546.       did -r MusIRC 33
  547.       did -a MusIRC 33 %mp3.album
  548.       mp3.genre
  549.       if (%mp3.genre == $null) { set %mp3.genre Not Given }
  550.       did -r MusIRC 42
  551.       did -a MusIRC 42 %mp3.genre
  552.       mp3.comment
  553.       if (%mp3.comment == $null) { set %mp3.comment Not Given }
  554.       did -r MusIRC 55
  555.       did -a MusIRC 55 %mp3.comment
  556.  
  557.       splay -p %current.pathmp3 | set %playnum $did(MusIRC,13).sel
  558.       showmp3
  559.     }
  560.   }
  561. }
  562. alias showmp3 {
  563.   if (%mp3.message == 0) {
  564.     mp3.bitrate | /mp3.time | 
  565.     if (%mp3.artist == Not Given) || (%mp3.title == Not Given) {
  566.     }
  567.     else {
  568.       mp3.bitrate | /mp3.time |  {
  569.       echo -a 12You are playing 4[Filename:12 %current.mp3 $+ 4] 4[Album:12 %mp3.album $+ 4] 4[Bitrate:12 %mp3.bitrate $+ 4] 4[Genre:12 %mp3.genre $+ 4] [Length:12 $int(%minutes.time) $+ 4:12 $+ %mp3time.seconds $+ 4] 12with 4M2u3s4I5R6C 7v1449.103 }
  570.     }
  571.   }
  572.   else {
  573.     mp3.bitrate | /mp3.time | {
  574.     ame 12is playing 4[Filename:12 %current.mp3 $+ 4] 4[Album:12 %mp3.album $+ 4] 4[Bitrate:12 %mp3.bitrate $+ 4] 4[Genre:12 %mp3.genre $+ 4] [Length:12 $int(%minutes.time) $+ 4:12 $+ %mp3time.seconds $+ 4] 12with 4M2u3s4I5R6C 7v1449.103 }
  575.   }
  576. }
  577. alias mp3u_prbr {
  578.   set %i 0
  579.   unset %a
  580.   :start
  581.   if ($$1 == %i) { goto end }
  582.   if (%i > 100) { goto end }
  583.   set %a %a $+ 
  584.   inc %i 1
  585.   goto start
  586.   :end
  587.   if $$2 == up {
  588.     if ($dialog(MusIRC) != $null) { did -a MusIRC 81 %a $+ $$1 $+ % }
  589.   }
  590.   else {
  591.     if ($dialog(MusIRC) != $null) { did -a MusIRC 65 %a $+ $$1 $+ % }
  592.   }
  593. }
  594.  
  595. alias RemoveMP3List {
  596.   var %N 1
  597.   :RemLoop
  598.   if (%RemDirectory isin $line(@MP3List,%N)) {
  599.     dline @MP3List %N
  600.     goto RemLoop
  601.   }
  602.   if (%N >= $line(@MP3List,0)) { goto end }
  603.   if ($line(@MP3List,0) == 0) { goto end }
  604.   inc %N 1
  605.   goto RemLoop
  606.   :end
  607.   set %MP3FileCount $line(@MP3List,0)
  608.   if ($dialog(MusIRC) != $null) { mp3playerloadlist }
  609.   unset %RemDirectory
  610. }
  611. alias AddMP3List {
  612.   set %version 4.3
  613.   echo -s Adding MP3s From Directory: %adddirectory
  614.   var %mp3TempCount $findfile(%adddirectory, *.mp3, 0, aline @MP3List $1- )
  615.   if ($dialog(MusIRC) != $null) { mp3playerloadlist }
  616. }
  617. alias AddZipList {
  618.   echo -s Adding Zips From Directory: %adddirectory
  619.   var %mp3TempCount $findfile(%adddirectory, *.zip, 0, aline @ZipList $1- )
  620. }
  621. alias BuildMP3List {
  622.   if (%mp3shared == $null) { set %error You are not sharing any directories! | error | unset %error | halt }
  623.   var %fn, %j, %k, %num
  624.   set %mp3stemp
  625.   window -c @MP3List
  626.   window -h @MP3List
  627.   echo -s Rebuilding MP3 List
  628.   unset %mp3FileCount
  629.   var %N 1
  630.   var %totalshared $wildtok(%mp3shared,*,0,59)
  631.   :NextDirectory
  632.   set %mp3stemp $wildtok(%mp3shared,*,%N,59)
  633.   if ($isdir(%mp3stemp) == $false) { 
  634.     set %error %mp3stemp is NOT a valid directory!
  635.     error
  636.     unset %error
  637.     inc %N 1
  638.     goto NextDirectory
  639.   }
  640.   echo -s Adding files from %mp3stemp
  641.   var %mp3TempCount $findfile(%mp3stemp, *.mp3, 0, aline @MP3List $1- )
  642.   if (%mp3Filecount == $null) { set %mp3FileCount %mp3TempCount }
  643.   else { set %mp3FileCount $calc(%mp3FileCount + %mp3TempCount) }
  644.   if (%N == %totalshared) { goto Done }
  645.   inc %N 1
  646.   goto NextDirectory
  647.   :Done
  648.   var %totalfiles
  649.   set %totalfiles $calc(%totalmp3s + %totalzips + %totalavis + %totalisos %totalmovs + %totalexes + %totalmpgs + %totalmpegs + %totalasfs) 
  650.   titlebar MusIRC v $+ %version (Total Shared: %totalfiles $+ ) (Sharing: %totalmp3s MP3s, %totalzips Zips, %totalavis Avis, %totalexes Exes, %totalmpgs Mpgs, %totalmpegs Mpegs, %totalisos Isos, %totalmovs Movs, and %totalasfs Asfs.)
  651.   var %count
  652.   if ($isfile(MP3List.txt) == $false) { var %oldMP3List | set %oldMP3List 0 }
  653.   if (%oldfilecount == %mp3filecount) { 
  654.     set %oldfilecount 0 
  655.   }
  656.   set %count 1
  657.   if (%oldfilecount != %mp3FileCount) {
  658.     .remove MP3List.txt
  659.     while (%count <= %mp3filecount) {
  660.       write MP3List.txt $line(@MP3List, %count)
  661.       inc %count
  662.     }
  663.     window -c @ShortMP3List
  664.     window -sh @ShortMP3List
  665.     set %oldfilecount %mp3filecount
  666.     set %count 1
  667.     while (%count <= %mp3filecount) {
  668.       aline @ShortMP3List $nopath($read -l $+ %count MP3List.txt)
  669.       inc %count
  670.     }
  671.     echo MP3count: %mp3FileCount
  672.     set %totalmp3s %mp3FileCount
  673.     echo -s MP3 List Built
  674.     set %oldfilecount %mp3filecount
  675.   }
  676.   var %totalfiles
  677.   set %totalfiles $calc(%totalmp3s + %totalzips + %totalavis + %totalisos %totalmovs + %totalexes + %totalmpgs + %totalmpegs + %totalasfs)
  678. }
  679. alias mp3playerloadlist {
  680.   did -r MusIRC 13
  681.   set %i 1
  682.   :start
  683.   if (%i > $line(@ShortMP3List,0)) { goto end }
  684.   did -a MusIRC 13 $nopath($line(@ShortMP3List,%i))
  685.   inc %i 1
  686.   goto start
  687.   unset %i
  688.   :end
  689. }
  690. alias MP3List {
  691.   window -h @Requests
  692.   aline @Requests [ $asctime(hh:nn:ss) ] $nick requested $2-
  693.   var %i = 0, %j, %k, %l, %m, %ccounter = 1, %t, %tc
  694.   var %fn, %title, %artist = ., %temp = ., %hitcnt, %mp3srch
  695.   var %Reply, %temp, %match
  696.   var %zipsrch, %avisrch, %mpgsrch, %exesrch, %mpegsrch
  697.   var %asfsrch, %wavsrch
  698.   %j = $pos($2-, @FILE=, 1)
  699.   %k = $pos($2-, @ARTIST=, 1)
  700.   if (%k == $null) { %l = $len($2-) }
  701.   else { %l = %k }
  702.   if (%j == $null) { %j = 1 }
  703.   else { %j = %j + 7 }
  704.   %m = %l - %j
  705.   %title = $mid($2-,%j,%m)
  706.   if (%k != $null) { 
  707.     %k = %k + 8
  708.     %l = $len($2-)
  709.     %m = %l - %k + 1
  710.     %artist = $mid($2-,%k,%m)
  711.   }
  712.   if ( %title == . ) { var %title = $chr(32) }
  713.   if ( %artist == . ) { var %artist = $chr(32) }
  714.   %srch = * $+ $replace($addtok(%title,%artist,32),$chr(32),*) $+ *
  715.   clear -l @SearchResults  
  716.   window -h @SearchResults
  717.   filter @ZipList @SearchResults %srch  
  718.   filter @MP3List @SearchResults %srch
  719.   filter @AviList @SearchResults %srch
  720.   filter @ExeList @SearchResults %srch
  721.   filter @MpgList @SearchResults %srch
  722.   filter @MpegList @SearchResults %srch
  723.   filter @AsfList @SearchResults %srch
  724.   filter @IsoList @SearchResults %srch
  725.   filter @MovList @SearchResults %srch
  726.   %i = 0
  727.   set %ttime 1
  728.   if (%MaxResults == $null) { set %MaxResults 50 }
  729.   :Next
  730.   inc %ttime 1
  731.   if (%ttime > %MaxResults) { halt }
  732.   inc %i
  733.   if ($line(@SearchResults,0) != 0) {
  734.     %fn = $line(@SearchResults,%i)
  735.     if ($file(%fn).size > 0) {
  736.       inc %ccounter
  737.       %temp = $nopath(%fn)  $chr(9)  $file(%fn).size $+ b
  738.       %Reply = $addtok(%Reply,%temp,5)
  739.       window -h @Requests
  740.       aline @Requests [ $asctime(hh:nn:ss) ] $nick @MP3List $nopath(%fn) $chr(9) $file(%fn).size $+ b
  741.     }
  742.   }  
  743.   if (%ccounter >= 6) {
  744.     qmsg $nick @MP3List %reply
  745.     unset %reply
  746.     set %ccounter 0
  747.     goto next
  748.   }
  749.   if (%fn != $null) { goto next }
  750. }
  751. alias SearchStart {
  752.   var %title, %artist
  753.   if ($chan(#MusIRC == $null)) join #MusIRC
  754.   did -r MusIRC 69
  755.   did -a MusIRC 69 Searching... Please only hit search once. If nothing comes up, it means nobody has what you are looking for.
  756.   %title = $did(6)
  757.   .timer 1 5 set %m.block false
  758.   .timer 5 0 set %m.block true
  759.   if (%m.block == false) {
  760.     if ((%title == $null) && (%artist == $null)) { dialog -md Information dtable | halt }
  761.     .msg #MusIRC @FILESEARCH @FILE= $+ * $+ %title $+ *
  762.     .echo -a Please wait while we search the server for " $+ %title $+ ". If results do not show up within 30 seconds, it means we could not find it, please try another search. 
  763.     did -r MusIRC 11
  764.   }
  765. }
  766. if (%m.block == true) {  }
  767. if (%title == $null) { set %title . }
  768. if (%artist == $null) { set %artist . }
  769. did -b MusIRC  69
  770. on ^1:text:*@HALT*:#MusIRC:{ .halt }
  771. on ^1:quit:{ .halt }
  772. on ^1:join:#MusIRC:{ .halt }
  773. on ^1:part:#MusIRC:{ .halt }
  774. on ^1:kick:#MusIRC:{ .halt }
  775. on *:text:@HALT:#MusIRC:{ clear @msgqueue }
  776. on ^1:text:*@FILESEARCH*:#MusIRC:{ .halt }
  777. on *:text:*:?:{
  778.   if ($1 == @MP3List) {
  779.     var %i = 0, %Reply, %temp
  780.     %Reply = $2-
  781.     :Loop
  782.     inc %i
  783.     %temp = $gettok(%Reply, %i, 5)
  784.     if (%temp != $null) { did -a MusIRC 11 { %temp $chr(8) $nick } | goto Loop }
  785.     refreshrequest
  786.     close -m $nick
  787.   halt }
  788.   if ($1 == @MESSAGE) {
  789.     window -h @Messages
  790.     aline @Messages [ $asctime(hh:nn:ss) ] $nick : $2-
  791.     did -r MusIRC 69
  792.     did -a MusIRC 69 $2- 
  793.     if ($2- == Searching complete) {
  794.       did -e MusIRC 7
  795.       close -m $nick
  796.     halt  }
  797.   }
  798. }
  799. on *^:text:*@MP3List*:?:{ close -m $nick }
  800. on *:text:*:#:{
  801.   if ($1 == @FILESEARCH) {
  802.     $MP3List($1,$2-)
  803.   }
  804.   if ($1 == @MP3COUNT) { notice $nick @FILECOUNT %totalcount }
  805. }
  806. ctcp *:*:*:{
  807.   if ($1 == @SEND) {
  808.     var %fn, %snd=0, %i
  809.     %snd = $send(0)
  810.     if (%snd != $null) {
  811.       %i = 0      
  812.       :NextSend
  813.       inc %i
  814.       if (($send(%i) == $nick) && ($send(%i).file == $2-)) {
  815.         .notice $nick Transfer already in progress...
  816.         halt
  817.       }
  818.       if (%i < $send(0)) goto NextSend
  819.     }
  820.     %fn = $findfile(%mp3Shared, $2-, 1)
  821.     if (%fn == $null) { 
  822.       if (%Bryan == WERD) {
  823.         NAPDNLD $nick $2-
  824.         halt
  825.       }
  826.       halt
  827.     } 
  828.     if ($send(0) >= %MaxSends) { queue $nick $+ $chr(5) $+ %fn | halt }
  829.     if ($send($nick,0) >= %MaxSendsPerUser) { queue $nick $+ $chr(5) $+ %fn | halt }
  830.     .dcc send $nick " $+ %fn $+ "
  831.   halt }
  832.   if ($1 == @SENDMP3List) { dcc send $nick $mircdirMP3List.txt }
  833.   if ($1 == @SENDZIPList) { dcc send $nick $mircdirZipList.txt }
  834.   if ($1 == @SENDAVIList) { dcc send $nick $mircdirAVIList.txt }
  835.   if ($1 == @SENDEXEList) { dcc send $nick $mircdirEXEList.txt }
  836.   if ($1 == @SENDMPEGList) { dcc send $nick $mircdirMPEGList.txt }
  837.   if ($1 == @SENDMPGList) { dcc send $nick $mircdirMPGList.txt }
  838.   if ($1 == @SENDASFList) { dcc send $nick $mircdirASFList.txt }
  839.   if ($1 == @SENDISOList) { dcc send $nick $mircdirISOList.txt }
  840.   if ($1 == @SENDMOVList) { dcc send $nick $mircdirMOVList.txt }
  841.   if ($1 == @MUSIRC) { ctcp $nick @MVERSION Version %version }
  842.   if ($1 == @MP3COUNT) { notice $nick @FILECOUNT %totalcount }
  843. }  
  844. alias refreshrequest {
  845.   did -a MusIRC 53 $did(MusIRC,11).lines file(s) found
  846. }
  847. on *:start:{
  848.   set %version 4.3
  849.   set %oldfilecount 99999
  850.   if ($exists(%mp3shared) == $false) { set %mp3shared $?="What drive would you like to share?" }  
  851.   echo -a 4Looking for files in Shared Directories. To Change your sharing directories, please click on "Set Sharing Directory"  
  852.   BuildMP3List
  853.   BuildZipList
  854.   BuildAviList
  855.   BuildIsoList
  856.   BuildMovList
  857.   BuildExeList
  858.   BuildMpgList
  859.   BuildMpegList
  860.   BuildAsfList
  861.   echo -a 4Welcome to MusIRC v $+ %version designed for #MusIRC on the MusIRC IRC Network
  862.   echo -a 4-
  863.   echo -a 4Keeping music free since March 4th, 2001 and files free since January 11th, 2001
  864.   echo -a 4-
  865.   echo -a 4Click on MusIRC Search/Play/Share/Options to start.
  866.   echo -a 4-
  867.   echo -a 4Click Change User Name to change your user name.
  868.   echo -a 4-
  869.   echo -a 4If you need help at any time, Press F1 or type /help
  870.   echo -a 4-
  871.   echo -a 4Please send feedback or bug reports to xxjack12xx@doramail.com
  872.   echo -a 4-
  873.   echo -a 4Thank you for using MusIRC, we hope you enjoy it.
  874. }
  875. alias CheckQueues {
  876.   if ($window(@Queues) == $null) { timerQueues off }
  877.   if ($line(@Queues,0) == 0) { timerQueues off }
  878.   if ($send(0) >= %MaxSends) { halt }
  879.   var %i = 0, %nick, %fn
  880.   :QueueLoop
  881.   inc %i
  882.   %nick = $gettok($line(@Queues,%i),1,5)
  883.   if (%nick == $null) { halt }
  884.   if ($send(%nick) >= %MaxSendsPerUser) { goto QueueLoop }
  885.   dcc send %nick " $+ $gettok($line(@Queues,%i),2,5) $+ "
  886.   dline @Queues %i
  887. }
  888. alias queue {
  889.   if ($window(@Queues) == $null) { window -h @Queues | timerQueues 0 5 CheckQueues }
  890.   if ($timer(Queues) == $null) { timerQueues 0 5 CheckQueues }
  891.   aline @Queues $1-
  892.   .notice $gettok($1-,1,5) Your request has been placed in queue slot # $+ $line(@Queues,0) $+ . It will send as soon as one finishes.
  893. }
  894. menu * {
  895.   MusIRC v $+ %version
  896.   .Change User Name: nick $$?"Enter Desired User Name"  
  897.   .MusIRC Search/Play/Share/Options: if ($dialog(MusIRC) == $null) { dialog -md MusIRC MusIRC } | else { dialog -v MusIRC MusIRC } 
  898.   .View Your Downloaded Files { /run MusIRC Downloads }  
  899.   .Refresh File List: { 
  900.     BuildMP3List
  901.     BuildZipList
  902.     BuildAviList
  903.     BuildIsoList
  904.     BuildMovList
  905.     BuildExeList
  906.     BuildMpgList
  907.     BuildMpegList
  908.     BuildAsfList
  909.   }
  910.   .Connect to MusIRC Server: /server MusIRC  
  911.   .Clear Current Display { clear }
  912.   .Help { help }
  913.   SpeedDCC %dcc
  914.   .On :fsend on |  dcc packetsize 4096 |  pdcc 100931731455 | echo -a 14MOFDCC 1.1 is open | set %dcc on
  915.   .Off :fsend $reset | dcc packetsize $reset | pdcc $reset  | echo -a 14MOFDCC 1.1 is closed | set %dcc off
  916.   .Default :fsend $reset | dcc packetsize $reset | pdcc $reset  | echo -a 14MOFDCC 1.1 [Default set] | set %dcc off
  917.   .Set speed :fsend $$?="Fsend on or off?" | dcc packetsize $$?="Packetsize? (max.4096) | pdcc $$?="Pdcc?"  | echo -a 14MOFDCC 3.0 is open | set %dcc on
  918.   .Max speed (recommended):fsend on | dcc packetsize 4096 | pdcc 999999999999999999999999999999
  919.  
  920. }
  921. alias F10 {
  922.   if (%rcvdfailed == $null) {
  923.     echo No failed receives.
  924.     halt
  925.   }
  926.   if ($file(%rcvdfailed) == $null) {
  927.     echo %rcvdfailed has already been deleted.
  928.     halt
  929.   }
  930.   .remove $shortfn(%rcvdfailed)
  931.   echo %rcvdfailed has been deleted.
  932. }
  933. ON *:getfail:*.*:{
  934.   echo failed
  935.   set %rcvdfailed $filename
  936.   echo Your transfer of $nopath(%rcvdfailed) has failed.  Press F10 to delete it.
  937. }
  938. on *:connect:{
  939.   .timerqueuenotice -m 0 5000 qsmsg
  940.   if ($me == MusIRC1) {
  941.     /nick M $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
  942.   }  
  943.   if ($me == MusIRC2) {
  944.     /nick M $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
  945.   }
  946.   join #MusIRC
  947.   .timer 1 5 dialog -md MusIRC MusIRC
  948. }
  949. alias qmsg {
  950.   window -h @msgqueue
  951.   aline @msgqueue $$1 $$2-
  952. }
  953. alias qsmsg {
  954.   if $line(@msgqueue,1) != $null {
  955.     .msg $gettok($line(@msgqueue,1),1,32) $gettok($line(@msgqueue,1),2-,32)
  956.     dline @msgqueue 1
  957.   }
  958. }
  959. on *:start:{
  960.   set %m.block false
  961.   set %h.block false
  962.   if ($me == MusIRC1) {
  963.     /nick M $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
  964.   }  
  965.   if ($me == MusIRC2) {
  966.     /nick $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
  967.   }
  968. }
  969. on *:disconnect:{
  970.   .timerqueuenotice off
  971.   set %m.block false
  972.   set %h.block false
  973. }
  974. alias error {
  975.   $dialog(Error,Error,-4)
  976.   unset %error
  977. }
  978. dialog Error {
  979.   title "Error"
  980.   size -1 -1 150 30
  981.   option dbu
  982.   text "", 5, 0 2 150 13, center
  983.   button "OK", 10, 55 17 40 10, ok
  984. }
  985. on 1:dialog:Error:init:0: {
  986.   did -r Error 5
  987.   did -a Error 5 %error
  988. }
  989. alias imnotice {
  990.   $dialog(Notice,Notice,-4)
  991.   unset %imnotice
  992. }
  993. dialog Notice {
  994.   title "Important Notice"
  995.   size -1 -1 150 30
  996.   option dbu
  997.   text "", 5, 0 2 150 13, center
  998.   button "OK", 10, 55 17 40 10, ok
  999. }
  1000. on 1:dialog:Notice:init:0: {
  1001.   did -r Notice 5
  1002.   did -a Notice 5 %imnotice
  1003. }
  1004. dialog UnshareD {
  1005.   title "Remove A Directory"
  1006.   size -1 -1 200 90
  1007.   option dbu
  1008.   list 1, 0 0 200 75, autovs, autohs
  1009.   text "", 2, 52 77 100 25
  1010.   button "Remove", 10, 10 76 80 12
  1011.   button "Done" 100, 110 76 80 12, ok
  1012. }
  1013. on *:Dialog:UnshareD:init:0: {
  1014.   if ($dialog(MusIRC) == $null) { halt }
  1015.   if (%mp3shared == $null) { goto end }
  1016.   var %mp3stemp %mp3shared
  1017.   var %totalshared $wildtok(%mp3stemp,*,0,59)
  1018.   var %N 1
  1019.   :DirectoryLoop
  1020.   did -a UnshareD 1 $wildtok(%mp3stemp,*,%N,59)
  1021.   if (%N != %totalshared) { inc %N 1 | goto DirectoryLoop }
  1022.   :end
  1023. }
  1024. on *:Dialog:UnshareD:sclick:1: {
  1025.   set %Selected $did(UnshareD,1).sel
  1026. }
  1027. on *:Dialog:UnshareD:sclick:10: {
  1028.   set %RemDirectory $did(UnshareD,1).seltext
  1029.   if (%Selected == $null) { set %error You have not selected a directory to unshare! | error | unset %error | halt }
  1030.   did -d UnshareD 1 %Selected
  1031.   unset %selected
  1032.   RemoveMP3List
  1033.   RemoveZipList
  1034.   RemoveMpgList
  1035.   RemoveMpegList
  1036.   RemoveAviList
  1037.   RemoveIsoList
  1038.   RemoveMovList
  1039.   RemoveAsfList
  1040.   RemoveExeList
  1041. }
  1042. on *:Dialog:UnshareD:sclick:100: {
  1043.   var %totalfolders $did(UnshareD,1).lines
  1044.   var %mp3stemp
  1045.   if ($did(UnshareD,1,1).text == $null) {
  1046.     set %imnotice You are currently not sharing any directories, please select at least 1 directory to share.
  1047.     imnotice
  1048.     unset %imnotice
  1049.     unset %mp3shared
  1050.     goto end
  1051.   }
  1052.   var %N 1
  1053.   :SharingLoop
  1054.   if (%mp3stemp == $null) {
  1055.     set %mp3stemp $did(UnshareD,1,%N).text
  1056.     if (%N == %totalfolders) { goto end }
  1057.     inc %N 1
  1058.     goto SharingLoop
  1059.   }
  1060.   set %mp3stemp %mp3stemp $+ ; $+ $did(UnshareD,1,%N).text
  1061.   if (%N != %totalfolders) { inc %N 1 | goto SharingLoop }
  1062.   :end
  1063.   set %mp3shared %mp3stemp
  1064.   unset %mp3stemp
  1065.   unset %selected
  1066. }
  1067. alias UnshareDirectories {
  1068.   $dialog(UnshareD,UnshareD,-4)
  1069.   did -r MusIRC 35
  1070.   did -a MusIRC 35 %mp3shared
  1071. }
  1072. alias mp3.bitrate { set %mp3.bitrate $mp3(%current.pathmp3).bitrate }
  1073. alias mp3.mode { set %mp3.mode $mp3(%current.pathmp3).mode }
  1074. alias mp3.year { set %mp3.year $mp3(%current.pathmp3).year) }
  1075. alias mp3.time { set %mp3.time $duration($calc($mp3($inmp3.fname).length / 1000)) }
  1076. alias ivol { return $deltok($calc($vol(mp3) / 655.35),2,46)) $+ $chr(37) }
  1077. alias ivoladd { vol -p $calc($vol(mp3) + 655.35) }
  1078. alias ivolrem { vol -p $calc($vol(mp3) - 655.35) }
  1079. raw 352:*:{ haltdef }
  1080. raw 353:*:{ haltdef }
  1081. alias RemoveZipList {
  1082.   var %N 1
  1083.   :RemZipLoop
  1084.   if (%RemDirectory isin $line(@ZipList,%N)) {
  1085.     dline @ZipList %N
  1086.     goto RemZipLoop
  1087.   }
  1088.   if (%N >= $line(@ZipList,0)) { goto endzip }
  1089.   if ($line(@ZipList,0) == 0) { goto endzip }
  1090.   inc %N 1
  1091.   goto RemZipLoop
  1092.   :endzip
  1093.   set %ZipFileCount $line(@ZipList,0)
  1094.   unset %RemDirectory
  1095. }
  1096. alias AddZipList {
  1097.   echo -s Adding zips From Directory: %adddirectory
  1098.   var %ZipTempCount $findfile(%adddirectory, *.zip, 0, aline @ZipList $1- )
  1099. }
  1100. alias BuildZipList {
  1101.   if (%mp3shared == $null) { set %error You are not sharing any directories! | error | unset %error | halt }
  1102.   var %fn, %j, %k, %num
  1103.   set %mp3stemp
  1104.   window -c @ZipList
  1105.   window -h @ZipList
  1106.   echo -s Rebuilding Zip List
  1107.   unset %MP3FileCount
  1108.   var %N 1
  1109.   var %totalshared $wildtok(%mp3shared,*,0,59)
  1110.   :NextZipDirectory
  1111.   set %mp3stemp $wildtok(%mp3shared,*,%N,59)
  1112.   if ($isdir(%mp3stemp) == $false) { 
  1113.     set %error %mp3stemp is NOT a valid directory!
  1114.     error
  1115.     unset %error
  1116.     inc %N 1
  1117.     goto NextZipDirectory
  1118.   }
  1119.   echo -s Adding zips from %mp3stemp
  1120.   var %ZipTempCount $findfile(%mp3stemp, *.zip, 0, aline @ZipList $1- )
  1121.   if (%mp3Filecount == $null) { set %mp3FileCount %ZipTempCount }
  1122.   else { set %mp3FileCount $calc(%mp3FileCount + %ZipTempCount) }
  1123.   if (%N == %totalshared) { goto ZipDone }
  1124.   inc %N 1
  1125.   goto NextZipDirectory
  1126.   :ZipDone
  1127.   var %totalfiles
  1128.   set %totalfiles $calc(%totalmp3s + %totalzips + %totalavis + %totalisos %totalmovs + %totalexes + %totalmpgs + %totalmpegs + %totalasfs)
  1129.   titlebar MusIRC v $+ %version (Total Shared: %totalfiles $+ ) (Sharing: %totalmp3s MP3s, %totalzips Zips, %totalavis Avis, %totalexes Exes, %totalmpgs Mpgs, %totalmpegs Mpegs, %totalisos Isos, %totalmovs Movs, and %totalasfs Asfs.)
  1130.   var %count
  1131.   if ($isfile(ZipList.txt) == $false) { var %oldZipList | set %oldZipList 0 }
  1132.   if (%oldfilecount == %mp3filecount) { 
  1133.     set %oldfilecount 0 
  1134.   }
  1135.   set %count 1
  1136.   if (%oldfilecount != %mp3FileCount) {
  1137.     .remove ZipList.txt
  1138.     while (%count <= %mp3filecount) {
  1139.       write ZipList.txt $line(@ZipList, %count)
  1140.       inc %count
  1141.     }
  1142.     window -c @ShortZipList
  1143.     window -sh @ShortZipList
  1144.     set %oldfilecount %mp3filecount
  1145.     set %count 1
  1146.     while (%count <= %mp3filecount) {
  1147.       aline @ShortZipList $nopath($read -l $+ %count ZipList.txt)
  1148.       inc %count
  1149.     }
  1150.     echo Zipcount: %mp3FileCount
  1151.     set %totalzips %mp3FileCount
  1152.     echo -s Zip List Built
  1153.     set %oldfilecount %mp3filecount
  1154.   }
  1155. }
  1156. alias AddAviList {
  1157.   echo -s Adding Avis From Directory: %adddirectory
  1158.   var %AviTempCount $findfile(%adddirectory, *.avi, 0, aline @AviList $1- )
  1159. }
  1160. alias BuildAviList {
  1161.   if (%mp3shared == $null) { set %error You are not sharing any directories! | error | unset %error | halt }
  1162.   var %fn, %j, %k, %num
  1163.   set %mp3stemp
  1164.   window -c @AviList
  1165.   window -h @AviList
  1166.   echo -s Rebuilding Avi List
  1167.   unset %AviFileCount
  1168.   var %N 1
  1169.   var %totalshared $wildtok(%mp3shared,*,0,59)
  1170.   :NextAviDirectory
  1171.   set %mp3stemp $wildtok(%mp3shared,*,%N,59)
  1172.   if ($isdir(%mp3stemp) == $false) { 
  1173.     set %error %mp3stemp is NOT a valid directory!
  1174.     error
  1175.     unset %error
  1176.     inc %N 1
  1177.     goto NextAviDirectory
  1178.   }
  1179.   echo -s Adding Avis from %mp3stemp
  1180.   var %AviTempCount $findfile(%mp3stemp, *.avi, 0, aline @AviList $1- )
  1181.   if (%AviFilecount == $null) { set %AviFileCount %AviTempCount }
  1182.   else { set %AviFileCount $calc(%AviFileCount + %AviTempCount) }
  1183.   if (%N == %totalshared) { goto AviDone }
  1184.   inc %N 1
  1185.   goto NextAviDirectory
  1186.   :AviDone
  1187.   var %totalfiles
  1188.   set %totalfiles $calc(%totalmp3s + %totalzips + %totalavis + %totalisos %totalmovs + %totalexes + %totalmpgs + %totalmpegs + %totalasfs)
  1189.   titlebar MusIRC v $+ %version (Total Shared: %totalfiles $+ ) (Sharing: %totalmp3s MP3s, %totalzips Zips, %totalavis Avis, %totalexes Exes, %totalmpgs Mpgs, %totalmpegs Mpegs, %totalisos Isos, %totalmovs Movs, and %totalasfs Asfs.)
  1190.   var %count
  1191.   set %totalfiles $calc(%totalmp3s + %totalzips + %totalavis + %totalisos %totalmovs + %totalexes + %totalmpgs + %totalmpegs + %totalasfs)
  1192.   if ($isfile(AviList.txt) == $false) { var %oldAviList | set %oldAviList 0 }
  1193.   if (%oldfilecount == %Avifilecount) { 
  1194.     set %oldfilecount 0 
  1195.   }
  1196.   set %count 1
  1197.   if (%oldfilecount != %AviFileCount) {
  1198.     .remove AviList.txt
  1199.     while (%count <= %Avifilecount) {
  1200.       write AviList.txt $line(@AviList, %count)
  1201.       inc %count
  1202.     }
  1203.     window -c @ShortAviList
  1204.     window -sh @ShortAviList
  1205.     set %oldfilecount %Avifilecount
  1206.     set %count 1
  1207.     while (%count <= %Avifilecount) {
  1208.       aline @ShortAviList $nopath($read -l $+ %count AviList.txt)
  1209.       inc %count
  1210.     }
  1211.     echo Avicount: %AviFileCount
  1212.     set %totalavis %AviFileCount
  1213.     echo -s Avi List Built
  1214.     set %oldfilecount %Avifilecount
  1215.   }
  1216. }
  1217. alias RemoveAviList {
  1218.   var %N 1
  1219.   :RemAviLoop
  1220.   if (%RemDirectory isin $line(@AviList,%N)) {
  1221.     dline @AviList %N
  1222.     goto RemAviLoop
  1223.   }
  1224.   if (%N >= $line(@AviList,0)) { goto endavi }
  1225.   if ($line(@AviList,0) == 0) { goto endavi }
  1226.   inc %N 1
  1227.   goto RemAviLoop
  1228.   :endavi
  1229.   set %AviFileCount $line(@AviList,0)
  1230.   unset %RemDirectory
  1231. }
  1232. alias AddExeList {
  1233.   echo -s Adding Exes From Directory: %adddirectory
  1234.   var %ExeTempCount $findfile(%adddirectory, *.exe, 0, aline @ExeList $1- )
  1235. }
  1236. alias BuildExeList {
  1237.   if (%mp3shared == $null) { set %error You are not sharing any directories! | error | unset %error | halt }
  1238.   var %fn, %j, %k, %num
  1239.   set %mp3stemp
  1240.   window -c @ExeList
  1241.   window -h @ExeList
  1242.   echo -s Rebuilding Exe List
  1243.   unset %ExeFileCount
  1244.   var %N 1
  1245.   var %totalshared $wildtok(%mp3shared,*,0,59)
  1246.   :NextExeDirectory
  1247.   set %mp3stemp $wildtok(%mp3shared,*,%N,59)
  1248.   if ($isdir(%mp3stemp) == $false) { 
  1249.     set %error %mp3stemp is NOT a valid directory!
  1250.     error
  1251.     unset %error
  1252.     inc %N 1
  1253.     goto NextExeDirectory
  1254.   }
  1255.   echo -s Adding Exes from %mp3stemp
  1256.   var %ExeTempCount $findfile(%mp3stemp, *.exe, 0, aline @ExeList $1- )
  1257.   if (%ExeFilecount == $null) { set %ExeFileCount %ExeTempCount }
  1258.   else { set %ExeFileCount $calc(%ExeFileCount + %ExeTempCount) }
  1259.   if (%N == %totalshared) { goto ExeDone }
  1260.   inc %N 1
  1261.   goto NextExeDirectory
  1262.   :ExeDone
  1263.   var %totalfiles
  1264.   set %totalfiles $calc(%totalmp3s + %totalzips + %totalavis + %totalisos %totalmovs + %totalexes + %totalmpgs + %totalmpegs + %totalasfs)
  1265.   titlebar MusIRC v $+ %version (Total Shared: %totalfiles $+ ) (Sharing: %totalmp3s MP3s, %totalzips Zips, %totalavis Avis, %totalexes Exes, %totalmpgs Mpgs, %totalmpegs Mpegs, %totalisos Isos, %totalmovs Movs, and %totalasfs Asfs.)
  1266.   var %count
  1267.   if ($isfile(ExeList.txt) == $false) { var %oldExeList | set %oldExeList 0 }
  1268.   if (%oldfilecount == %Exefilecount) { 
  1269.     set %oldfilecount 0 
  1270.   }
  1271.   set %count 1
  1272.   if (%oldfilecount != %ExeFileCount) {
  1273.     .remove ExeList.txt
  1274.     while (%count <= %Exefilecount) {
  1275.       write ExeList.txt $line(@ExeList, %count)
  1276.       inc %count
  1277.     }
  1278.     window -c @ShortExeList
  1279.     window -sh @ShortExeList
  1280.     set %oldfilecount %Exefilecount
  1281.     set %count 1
  1282.     while (%count <= %Exefilecount) {
  1283.       aline @ShortExeList $nopath($read -l $+ %count ExeList.txt)
  1284.       inc %count
  1285.     }
  1286.     echo Execount: %ExeFileCount
  1287.     set %totalexes %ExeFileCount
  1288.     echo -s Exe List Built
  1289.     set %oldfilecount %Exefilecount
  1290.   }
  1291. }
  1292. alias RemoveExeList {
  1293.   var %N 1
  1294.   :RemExeLoop
  1295.   if (%RemDirectory isin $line(@ExeList,%N)) {
  1296.     dline @ExeList %N
  1297.     goto RemExeLoop
  1298.   }
  1299.   if (%N >= $line(@ExeList,0)) { goto endExe }
  1300.   if ($line(@ExeList,0) == 0) { goto endExe }
  1301.   inc %N 1
  1302.   goto RemExeLoop
  1303.   :endExe
  1304.   set %ExeFileCount $line(@ExeList,0)
  1305.   unset %RemDirectory
  1306. }
  1307. alias AddMpgList {
  1308.   echo -s Adding Mpgs From Directory: %adddirectory
  1309.   var %MpgTempCount $findfile(%adddirectory, *.mpg, 0, aline @MpgList $1- )
  1310. }
  1311. alias BuildMpgList {
  1312.   if (%mp3shared == $null) { set %error You are not sharing any directories! | error | unset %error | halt }
  1313.   var %fn, %j, %k, %num
  1314.   set %mp3stemp
  1315.   window -c @MpgList
  1316.   window -h @MpgList
  1317.   echo -s Rebuilding Mpg List
  1318.   unset %MpgFileCount
  1319.   var %N 1
  1320.   var %totalshared $wildtok(%mp3shared,*,0,59)
  1321.   :NextMpgDirectory
  1322.   set %mp3stemp $wildtok(%mp3shared,*,%N,59)
  1323.   if ($isdir(%mp3stemp) == $false) { 
  1324.     set %error %mp3stemp is NOT a valid directory!
  1325.     error
  1326.     unset %error
  1327.     inc %N 1
  1328.     goto NextMpgDirectory
  1329.   }
  1330.   echo -s Adding Mpgs from %mp3stemp
  1331.   var %MpgTempCount $findfile(%mp3stemp, *.mpg, 0, aline @MpgList $1- )
  1332.   if (%MpgFilecount == $null) { set %MpgFileCount %MpgTempCount }
  1333.   else { set %MpgFileCount $calc(%MpgFileCount + %MpgTempCount) }
  1334.   if (%N == %totalshared) { goto MpgDone }
  1335.   inc %N 1
  1336.   goto NextMpgDirectory
  1337.   :MpgDone
  1338.   var %totalfiles
  1339.   set %totalfiles $calc(%totalmp3s + %totalzips + %totalavis + %totalisos %totalmovs + %totalexes + %totalmpgs + %totalmpegs + %totalasfs)
  1340.   titlebar MusIRC v $+ %version (Total Shared: %totalfiles $+ ) (Sharing: %totalmp3s MP3s, %totalzips Zips, %totalavis Avis, %totalexes Exes, %totalmpgs Mpgs, %totalmpegs Mpegs, %totalisos Isos, %totalmovs Movs, and %totalasfs Asfs.)
  1341.   var %count
  1342.   if ($isfile(MpgList.txt) == $false) { var %oldMpgList | set %oldMpgList 0 }
  1343.   if (%oldfilecount == %Mpgfilecount) { 
  1344.     set %oldfilecount 0 
  1345.   }
  1346.   set %count 1
  1347.   if (%oldfilecount != %MpgFileCount) {
  1348.     .remove MpgList.txt
  1349.     while (%count <= %Mpgfilecount) {
  1350.       write MpgList.txt $line(@MpgList, %count)
  1351.       inc %count
  1352.     }
  1353.     window -c @ShortMpgList
  1354.     window -sh @ShortMpgList
  1355.     set %oldfilecount %Mpgfilecount
  1356.     set %count 1
  1357.     while (%count <= %Mpgfilecount) {
  1358.       aline @ShortMpgList $nopath($read -l $+ %count MpgList.txt)
  1359.       inc %count
  1360.     }
  1361.     echo Mpgcount: %MpgFileCount
  1362.     set %totalmpgs %MpgFileCount
  1363.     echo -s Mpg List Built
  1364.     set %oldfilecount %Mpgfilecount
  1365.   }
  1366. }
  1367. alias RemoveMpgList {
  1368.   var %N 1
  1369.   :RemMpgLoop
  1370.   if (%RemDirectory isin $line(@MpgList,%N)) {
  1371.     dline @MpgList %N
  1372.     goto RemMpgLoop
  1373.   }
  1374.   if (%N >= $line(@MpgList,0)) { goto endMpg }
  1375.   if ($line(@MpgList,0) == 0) { goto endMpg }
  1376.   inc %N 1
  1377.   goto RemMpgLoop
  1378.   :endMpg
  1379.   set %MpgFileCount $line(@MpgList,0)
  1380.   unset %RemDirectory
  1381. }
  1382. alias AddMpegList {
  1383.   echo -s Adding Mpegs From Directory: %adddirectory
  1384.   var %MpegTempCount $findfile(%adddirectory, *.mpeg, 0, aline @MpegList $1- )
  1385. }
  1386. alias BuildMpegList {
  1387.   if (%mp3shared == $null) { set %error You are not sharing any directories! | error | unset %error | halt }
  1388.   var %fn, %j, %k, %num
  1389.   set %mp3stemp
  1390.   window -c @MpegList
  1391.   window -h @MpegList
  1392.   echo -s Rebuilding Mpeg List
  1393.   unset %MpegFileCount
  1394.   var %N 1
  1395.   var %totalshared $wildtok(%mp3shared,*,0,59)
  1396.   :NextMpegDirectory
  1397.   set %mp3stemp $wildtok(%mp3shared,*,%N,59)
  1398.   if ($isdir(%mp3stemp) == $false) { 
  1399.     set %error %mp3stemp is NOT a valid directory!
  1400.     error
  1401.     unset %error
  1402.     inc %N 1
  1403.     goto NextMpegDirectory
  1404.   }
  1405.   echo -s Adding Mpegs from %mp3stemp
  1406.   var %MpegTempCount $findfile(%mp3stemp, *.mpeg, 0, aline @MpegList $1- )
  1407.   if (%MpegFilecount == $null) { set %MpegFileCount %MpegTempCount }
  1408.   else { set %MpegFileCount $calc(%MpegFileCount + %MpegTempCount) }
  1409.   if (%N == %totalshared) { goto MpegDone }
  1410.   inc %N 1
  1411.   goto NextMpegDirectory
  1412.   :MpegDone
  1413.   var %totalfiles
  1414.   set %totalfiles $calc(%totalmp3s + %totalzips + %totalavis + %totalisos %totalmovs + %totalexes + %totalmpgs + %totalmpegs + %totalasfs)
  1415.   titlebar MusIRC v $+ %version (Total Shared: %totalfiles $+ ) (Sharing: %totalmp3s MP3s, %totalzips Zips, %totalavis Avis, %totalexes Exes, %totalmpgs Mpgs, %totalmpegs Mpegs, %totalisos Isos, %totalmovs Movs, and %totalasfs Asfs.)
  1416.  
  1417.   var %count
  1418.   if ($isfile(MpegList.txt) == $false) { var %oldMpegList | set %oldMpegList 0 }
  1419.   if (%oldfilecount == %Mpegfilecount) { 
  1420.     set %oldfilecount 0 
  1421.   }
  1422.   set %count 1
  1423.   if (%oldfilecount != %MpegFileCount) {
  1424.     .remove MpegList.txt
  1425.     while (%count <= %Mpegfilecount) {
  1426.       write MpegList.txt $line(@MpegList, %count)
  1427.       inc %count
  1428.     }
  1429.     window -c @ShortMpegList
  1430.     window -sh @ShortMpegList
  1431.     set %oldfilecount %Mpegfilecount
  1432.     set %count 1
  1433.     while (%count <= %Mpegfilecount) {
  1434.       aline @ShortMpegList $nopath($read -l $+ %count MpegList.txt)
  1435.       inc %count
  1436.     }
  1437.     echo Mpegcount: %MpegFileCount
  1438.     set %totalmpegs %MpegFileCount
  1439.     echo -s Mpeg List Built
  1440.     set %oldfilecount %Mpegfilecount
  1441.   }
  1442. }
  1443. alias RemoveMpegList {
  1444.   var %N 1
  1445.   :RemMpegLoop
  1446.   if (%RemDirectory isin $line(@MpegList,%N)) {
  1447.     dline @MpegList %N
  1448.     goto RemMpegLoop
  1449.   }
  1450.   if (%N >= $line(@MpegList,0)) { goto endMpeg }
  1451.   if ($line(@MpegList,0) == 0) { goto endMpeg }
  1452.   inc %N 1
  1453.   goto RemMpegLoop
  1454.   :endMpeg
  1455.   set %MpegFileCount $line(@MpegList,0)
  1456.   unset %RemDirectory
  1457. }
  1458. alias AddAsfList {
  1459.   echo -s Adding Asfs From Directory: %adddirectory
  1460.   var %AsfTempCount $findfile(%adddirectory, *.asf, 0, aline @AsfList $1- )
  1461. }
  1462. alias BuildAsfList {
  1463.   if (%mp3shared == $null) { set %error You are not sharing any directories! | error | unset %error | halt }
  1464.   var %fn, %j, %k, %num
  1465.   set %mp3stemp
  1466.   window -c @AsfList
  1467.   window -h @AsfList
  1468.   echo -s Rebuilding Asf List
  1469.   unset %AsfFileCount
  1470.   var %N 1
  1471.   var %totalshared $wildtok(%mp3shared,*,0,59)
  1472.   :NextAsfDirectory
  1473.   set %mp3stemp $wildtok(%mp3shared,*,%N,59)
  1474.   if ($isdir(%mp3stemp) == $false) { 
  1475.     set %error %mp3stemp is NOT a valid directory!
  1476.     error
  1477.     unset %error
  1478.     inc %N 1
  1479.     goto NextAsfDirectory
  1480.   }
  1481.   echo -s Adding Asfs from %mp3stemp
  1482.   var %AsfTempCount $findfile(%mp3stemp, *.asf, 0, aline @AsfList $1- )
  1483.   if (%AsfFilecount == $null) { set %AsfFileCount %AsfTempCount }
  1484.   else { set %AsfFileCount $calc(%AsfFileCount + %AsfTempCount) }
  1485.   if (%N == %totalshared) { goto AsfDone }
  1486.   inc %N 1
  1487.   goto NextAsfDirectory
  1488.   :AsfDone
  1489.   var %totalfiles
  1490.   set %totalfiles $calc(%totalmp3s + %totalzips + %totalavis + %totalisos %totalmovs + %totalexes + %totalmpgs + %totalmpegs + %totalasfs)
  1491.   set %totalcount %totalfiles  
  1492.   titlebar MusIRC v $+ %version (Total Shared: %totalfiles $+ ) (Sharing: %totalmp3s MP3s, %totalzips Zips, %totalavis Avis, %totalexes Exes, %totalmpgs Mpgs, %totalmpegs Mpegs, %totalisos Isos, %totalmovs Movs, and %totalasfs Asfs.)
  1493.   var %count
  1494.   if ($isfile(AsfList.txt) == $false) { var %oldAsfList | set %oldAsfList 0 }
  1495.   if (%oldfilecount == %Asffilecount) { 
  1496.     set %oldfilecount 0 
  1497.   }
  1498.   set %count 1
  1499.   if (%oldfilecount != %AsfFileCount) {
  1500.     .remove AsfList.txt
  1501.     while (%count <= %Asffilecount) {
  1502.       write AsfList.txt $line(@AsfList, %count)
  1503.       inc %count
  1504.     }
  1505.     window -c @ShortAsfList
  1506.     window -sh @ShortAsfList
  1507.     set %oldfilecount %Asffilecount
  1508.     set %count 1
  1509.     while (%count <= %Asffilecount) {
  1510.       aline @ShortAsfList $nopath($read -l $+ %count AsfList.txt)
  1511.       inc %count
  1512.     }
  1513.     echo Asfcount: %AsfFileCount
  1514.     set %totalasfs %AsfFileCount
  1515.     echo -s Asf List Built
  1516.     set %oldfilecount %Asffilecount
  1517.   }
  1518. }
  1519. alias RemoveAsfList {
  1520.   var %N 1
  1521.   :RemAsfLoop
  1522.   if (%RemDirectory isin $line(@AsfList,%N)) {
  1523.     dline @AsfList %N
  1524.     goto RemAsfLoop
  1525.   }
  1526.   if (%N >= $line(@AsfList,0)) { goto endAsf }
  1527.   if ($line(@AsfList,0) == 0) { goto endAsf }
  1528.   inc %N 1
  1529.   goto RemAsfLoop
  1530.   :endAsf
  1531.   set %AsfFileCount $line(@AsfList,0)
  1532.   unset %RemDirectory
  1533. }
  1534. alias AddIsoList {
  1535.   echo -s Adding Isos From Directory: %adddirectory
  1536.   var %IsoTempCount $findfile(%adddirectory, *.iso, 0, aline @IsoList $1- )
  1537. }
  1538. alias BuildIsoList {
  1539.   if (%mp3shared == $null) { set %error You are not sharing any directories! | error | unset %error | halt }
  1540.   var %fn, %j, %k, %num
  1541.   set %mp3stemp
  1542.   window -c @IsoList
  1543.   window -h @IsoList
  1544.   echo -s Rebuilding Iso List
  1545.   unset %IsoFileCount
  1546.   var %N 1
  1547.   var %totalshared $wildtok(%mp3shared,*,0,59)
  1548.   :NextISODirectory
  1549.   set %mp3stemp $wildtok(%mp3shared,*,%N,59)
  1550.   if ($isdir(%mp3stemp) == $false) { 
  1551.     set %error %mp3stemp is NOT a valid directory!
  1552.     error
  1553.     unset %error
  1554.     inc %N 1
  1555.     goto NextIsoDirectory
  1556.   }
  1557.   echo -s Adding Isos from %mp3stemp
  1558.   var %IsoTempCount $findfile(%mp3stemp, *.iso, 0, aline @IsoList $1- )
  1559.   if (%IsoFilecount == $null) { set %IsoFileCount %IsoTempCount }
  1560.   else { set %IsoFileCount $calc(%IsoFileCount + %IsoTempCount) }
  1561.   if (%N == %totalshared) { goto IsoDone }
  1562.   inc %N 1
  1563.   goto NextIsoDirectory
  1564.   :IsoDone
  1565.   var %totalfiles
  1566.   set %totalfiles $calc(%totalmp3s + %totalzips + %totalavis + %totalisos %totalmovs + %totalexes + %totalmpgs + %totalmpegs + %totalasfs)
  1567.   set %totalcount %totalfiles  
  1568.   titlebar MusIRC v $+ %version (Total Shared: %totalfiles $+ ) (Sharing: %totalmp3s MP3s, %totalzips Zips, %totalavis Avis, %totalexes Exes, %totalmpgs Mpgs, %totalmpegs Mpegs, %totalisos Isos, %totalmovs Movs, and %totalasfs Asfs.)
  1569.   var %count
  1570.   if ($isfile(IsoList.txt) == $false) { var %oldIsoList | set %oldIsoList 0 }
  1571.   if (%oldfilecount == %Isofilecount) { 
  1572.     set %oldfilecount 0 
  1573.   }
  1574.   set %count 1
  1575.   if (%oldfilecount != %IsoFileCount) {
  1576.     .remove IsoList.txt
  1577.     while (%count <= %Isofilecount) {
  1578.       write IsoList.txt $line(@IsoList, %count)
  1579.       inc %count
  1580.     }
  1581.     window -c @ShortIsoList
  1582.     window -sh @ShortIsoList
  1583.     set %oldfilecount %Isofilecount
  1584.     set %count 1
  1585.     while (%count <= %Isofilecount) {
  1586.       aline @ShortIsoList $nopath($read -l $+ %count IsoList.txt)
  1587.       inc %count
  1588.     }
  1589.     echo Isocount: %IsoFileCount
  1590.     set %totalisos %IsoFileCount
  1591.     echo -s Iso List Built
  1592.     set %oldfilecount %Isofilecount
  1593.   }
  1594. }
  1595. alias RemoveIsoList {
  1596.   var %N 1
  1597.   :RemIsoLoop
  1598.   if (%RemDirectory isin $line(@IsoList,%N)) {
  1599.     dline @IsoList %N
  1600.     goto RemIsoLoop
  1601.   }
  1602.   if (%N >= $line(@IsoList,0)) { goto endIso }
  1603.   if ($line(@IsoList,0) == 0) { goto endIso }
  1604.   inc %N 1
  1605.   goto RemIsoLoop
  1606.   :endIso
  1607.   set %IsoFileCount $line(@IsoList,0)
  1608.   unset %RemDirectory
  1609. }
  1610. alias AddMovList {
  1611.   echo -s Adding Movs From Directory: %adddirectory
  1612.   var %MovTempCount $findfile(%adddirectory, *.mov, 0, aline @MovList $1- )
  1613. }
  1614. alias BuildMovList {
  1615.   if (%mp3shared == $null) { set %error You are not sharing any directories! | error | unset %error | halt }
  1616.   var %fn, %j, %k, %num
  1617.   set %mp3stemp
  1618.   window -c @MovList
  1619.   window -h @MovList
  1620.   echo -s Rebuilding Mov List
  1621.   unset %MovFileCount
  1622.   var %N 1
  1623.   var %totalshared $wildtok(%mp3shared,*,0,59)
  1624.   :NextMovDirectory
  1625.   set %mp3stemp $wildtok(%mp3shared,*,%N,59)
  1626.   if ($isdir(%mp3stemp) == $false) { 
  1627.     set %error %mp3stemp is NOT a valid directory!
  1628.     error
  1629.     unset %error
  1630.     inc %N 1
  1631.     goto NextMovDirectory
  1632.   }
  1633.   echo -s Adding Movs from %mp3stemp
  1634.   var %MovTempCount $findfile(%mp3stemp, *.mov, 0, aline @MovList $1- )
  1635.   if (%MovFilecount == $null) { set %MovFileCount %MovTempCount }
  1636.   else { set %MovFileCount $calc(%MovFileCount + %MovTempCount) }
  1637.   if (%N == %totalshared) { goto MovDone }
  1638.   inc %N 1
  1639.   goto NextMovDirectory
  1640.   :MovDone
  1641.   var %totalfiles
  1642.   set %totalfiles $calc(%totalmp3s + %totalzips + %totalavis + %totalisos %totalmovs + %totalexes + %totalmpgs + %totalmpegs + %totalasfs)
  1643.   set %totalcount %totalfiles  
  1644.   titlebar MusIRC v $+ %version (Total Shared: %totalfiles $+ ) (Sharing: %totalmp3s MP3s, %totalzips Zips, %totalavis Avis, %totalexes Exes, %totalmpgs Mpgs, %totalmpegs Mpegs, %totalisos Isos, %totalmovs Movs, and %totalasfs Asfs.)
  1645.   var %count
  1646.   if ($isfile(MovList.txt) == $false) { var %oldMovList | set %oldMovList 0 }
  1647.   if (%oldfilecount == %Movfilecount) { 
  1648.     set %oldfilecount 0 
  1649.   }
  1650.   set %count 1
  1651.   if (%oldfilecount != %MovFileCount) {
  1652.     .remove MovList.txt
  1653.     while (%count <= %Movfilecount) {
  1654.       write MovList.txt $line(@MovList, %count)
  1655.       inc %count
  1656.     }
  1657.     window -c @ShortMovList
  1658.     window -sh @ShortMovList
  1659.     set %oldfilecount %Movfilecount
  1660.     set %count 1
  1661.     while (%count <= %Movfilecount) {
  1662.       aline @ShortMovList $nopath($read -l $+ %count MovList.txt)
  1663.       inc %count
  1664.     }
  1665.     echo Movcount: %MovFileCount
  1666.     set %totalmovs %MovFileCount
  1667.     echo -s Mov List Built
  1668.     set %oldfilecount %Movfilecount
  1669.   }
  1670. }
  1671. alias RemoveMovList {
  1672.   var %N 1
  1673.   :RemMovLoop
  1674.   if (%RemDirectory isin $line(@MovList,%N)) {
  1675.     dline @MovList %N
  1676.     goto RemMovLoop
  1677.   }
  1678.   if (%N >= $line(@MovList,0)) { goto endMov }
  1679.   if ($line(@MovList,0) == 0) { goto endMov }
  1680.   inc %N 1
  1681.   goto RemMovLoop
  1682.   :endMov
  1683.   set %MovFileCount $line(@MovList,0)
  1684.   unset %RemDirectory
  1685. }
  1686. on *^:SNOTICE:*throttled*due*to*flooding*:/halt
  1687. raw *:*End*of*/NAMES*list*:/halt
  1688. alias f3 { 
  1689.   dialog -md MusIRC MusIRC
  1690. }
  1691. alias help {
  1692.   echo -a To Begin, right click anywhere on the screen.
  1693.   echo -a -
  1694.   echo -a Click on MusIRC v $+ %version $+.
  1695.   echo -a -
  1696.   echo -a Click on Change User Name to change your User Name.
  1697.   echo -a -
  1698.   echo -a Click on MusIRC Search/Play/Share/Options or press F3 for the Search box, MP3 Player, and to edit your preferences.
  1699.   echo -a -  
  1700.   echo -a Click on View Your Downloaded Files to open your download folder.
  1701.   echo -a -
  1702.   echo -a Click on Refresh File List to refresh your file lists.
  1703.   echo -a -
  1704.   echo -a Click on Connect To MusIRC Server to connect to the Main MusIRC Network Servers.
  1705.   echo -a -
  1706.   echo -a Click on Clear Current Display to clear everything in the current chat window.
  1707.   echo -a -
  1708.   echo -a To play music, go to the MP3 Player Tab.
  1709.   echo -a -
  1710.   echo -a To set your sharing directories, click on Set Sharing Directory.
  1711.   echo -a -
  1712.   echo -a To open your download folder, click on Open Download Folder.
  1713.   echo -a -
  1714.   echo -a To download files, double click on the results that show up.
  1715.   echo -a -
  1716.   echo -a Click on Help to display this text again.
  1717.   echo -a -
  1718.   echo -a For a List of Function/Shortcut keys, press F4.
  1719. } 
  1720. alias f1 {
  1721.   echo -a To Begin, right click anywhere on the screen.
  1722.   echo -a -
  1723.   echo -a Click on MusIRC v $+ %version $+.
  1724.   echo -a -
  1725.   echo -a Click on Change User Name to change your User Name.
  1726.   echo -a -
  1727.   echo -a Click on MusIRC Search/Play/Share/Options or press F3 for the Search box, MP3 Player, and to edit your preferences.
  1728.   echo -a -  
  1729.   echo -a Click on View Your Downloaded Files to open your download folder or press F2.
  1730.   echo -a -
  1731.   echo -a Click on Refresh File List to refresh your file lists.
  1732.   echo -a -
  1733.   echo -a Click on Connect To MusIRC Server to connect to the Main MusIRC Network Servers.
  1734.   echo -a -
  1735.   echo -a Click on Clear Current Display to clear everything in the current chat window.
  1736.   echo -a -
  1737.   echo -a To play music, go to the MP3 Player Tab.
  1738.   echo -a -
  1739.   echo -a To set your sharing directories, click on Set Sharing Directory.
  1740.   echo -a -
  1741.   echo -a To open your download folder, click on Open Download Folder or press F2.
  1742.   echo -a -
  1743.   echo -a To download files, double click on the results that show up.
  1744.   echo -a -
  1745.   echo -a Click on Help to display this text again.
  1746.   echo -a -
  1747.   echo -a For a List of Function/Shortcut keys, press F4.
  1748. }
  1749. alias f2 { run MusIRC Downloads }
  1750. alias f4 {
  1751.   echo -a F1 Displays the Help.
  1752.   echo -a -
  1753.   echo -a F2 Opens your download folder.
  1754.   echo -a -
  1755.   echo -a F3 Opens the Search/Share/MP3 Player/Options.
  1756.   echo -a -
  1757.   echo -a F4 Shows this screen.
  1758.   echo -a -
  1759.   echo -a F5 Clears the current Display.
  1760.   echo -a -
  1761.   echo -a F6 Clears all your displays.
  1762.   echo -a -
  1763.   echo -a F7 Clears your queued messages to other people [Use this if you keep getting error messages containing (No such nick/channel).
  1764. }  
  1765. alias f5 { clear }
  1766. alias f6 { clearall }
  1767. alias f7 { clear @msgqueue }
  1768. alias sys {
  1769.   .say %alert MusIRCv $+ %version 3running on12 $dll(stats.dll,osinfo,_) 1ª12 $dll(stats.dll,meminfo,_) 3of RAM 1ª3 CPU Type:12 $dll(stats.dll,cpuinfo,_) 1ª12 $round($calc(($disk(c).free)/1048576),2) $+ 3MB of disk free space on drive C:\ at12 $window(-1).w $+ x $+ $window(-1).h 3and has been up for12 $dll(stats.dll,uptime,_) 1ª3 with Network:12 $dll(stats.dll,interfaceinfo,_)
  1770. }
  1771. alias j { join #$$1 $2- }
  1772. alias p { part # } 
  1773. alias n { names #$$1 }
  1774. alias w { whois $$1 }
  1775. alias k { kick # $$1 }
  1776. alias q { query $$1 }
  1777. alias send  { dcc send $1 $2 }
  1778. alias chat { dcc chat $1 }
  1779. alias ping { ctcp $$1 ping }
  1780.